home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 2 of 2).iso / magicwb / magicwb extra 6a / dwficons_to_use / utilities5 / emacs < prev    next >
Encoding:
AmigaDOS Script File  |  1978-01-04  |  354 b   |  14 lines
  1. .key a1,a2,a3,a4,a5,a6,a7,a8,a9
  2. .bra {
  3. .ket }
  4. stack >t:estk_$process
  5. set stack `rx <t:estk_$process "pull stk; say subword(stk, 5, 1)"`
  6. delete >nil: t:estk_$process force
  7. set cmp `eval $stack - 40000`
  8. if 0 gt $cmp
  9.   echo "Increasing stack to 40000 for emacs"
  10.   stack 40000
  11. endif
  12. run >nil: temacs {a1} {a2} {a3} {a4} {a5} {a6} {a7} {a8} {a9}
  13. stack $stack
  14.